home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol025 / number.bas < prev    next >
Encoding:
BASIC Source File  |  1987-01-11  |  2.6 KB  |  93 lines
  1. 100 CLS
  2. 110 A$=STRING$(80,205)
  3. 120 PRINT A$
  4. 130 PRINT TAB(33)"SECRET NUMBER"
  5. 140 COLOR 23,0,0
  6. 150 COLOR 7,0,0
  7. 160 PRINT :PRINT :PRINT TAB(25)"PERSONAL COMPUTER OWNERS GROUP"
  8. 170 PRINT :PRINT :PRINT TAB(19)"p.o.box 10426, pittsburgh, pennsylvania 15234"
  9. 180 PRINT A$
  10. 190 PRINT :PRINT :PRINT :PRINT :PRINT
  11. 200 PRINT TAB(28)"PRESS ANY KEY TO CONTINUE"
  12. 210 A$=INKEY$:IF A$="" THEN 210
  13. 220 CLS
  14. 230 A$=STRING$(80,176)
  15. 240 B$=STRING$(80,205)
  16. 250 C$=STRING$(80,2)
  17. 260 PRINT A$
  18. 270 PRINT B$
  19. 280 PRINT TAB(33)"SECRET NUMBER"
  20. 290 PRINT
  21. 300 PRINT TAB(18)"TRANSLATED BY IPCO TO IBM BASICA FOR THE PC"
  22. 310 PRINT:PRINT:PRINT
  23. 320 PRINT "PRESS ANY KEY TO CONTINUE"
  24. 330 A$=INKEY$:IF A$="" THEN 330
  25. 340 CLS
  26. 350 PRINT B$
  27. 360 PRINT "GREETINGS!  THIS IS THE GAME OF SECRET NUMBERS."
  28. 370 PRINT B$
  29. 380 PRINT
  30. 390 INPUT "BEFORE WE START, PLEASE TELL ME YOUR NAME";NAM$
  31. 400 CLS
  32. 410 PRINT "O.K. ";NAM$;" THESE ARE THE RULES..."
  33. 420 PRINT B$
  34. 430 PRINT :PRINT "FIRST YOUR MUST ENTER A LIMIT...."
  35. 440 PRINT :PRINT "SECOND, I WILL THINK OF A SECRET NUMBER BETWEEN 1 AND YOUR LIMIT."
  36. 450 PRINT :PRINT "THEN ENTER YOUR GUESS AND I WILL TELL YOU IF IT IS HIGH OR LOW."
  37. 460 PRINT :PRINT"THEN YOU CAN KEEP GUESSING UNTIL YOU GET THE SECRET NUMBER."
  38. 470 PRINT B$
  39. 480 PRINT "PRESS ANY KEY TO CONTINUE"
  40. 490 A$=INKEY$:IF A$="" THEN 490
  41. 500 CLS
  42. 510 RANDOMIZE
  43. 520 MSG1$="SECRET NUMBER IS"
  44. 530 MSG2$="YOUR NUMBER"
  45. 540 CLS
  46. 550 INPUT "ENTER LIMIT ";LIMIT
  47. 560 FOR X=1 TO 20
  48. 570 IF LIMIT<2^X THEN 600
  49. 580 NEXT X
  50. 590 P
  51. 600 PRINT "YOU SHOULD GUESS THE SECRET NUMBER IN NO MORE THAN ";X;"TRIES."
  52. 610 SECRET=INT(LIMIT*RND)+1
  53. 620 PRINT
  54. 630 N=N+1
  55. 640 PRINT
  56. 650 INPUT "GUESS: " ;GUESS
  57. 660 IF SECRET=GUESS THEN 730
  58. 670 IF SECRET<GUESS THEN 690
  59. 680 IF SECRET>GUESS THEN 710
  60. 690 PRINT MSG1$;" LESS THAN ";MSG2$
  61. 700 GOTO 630
  62. 710 PRINT MSG1$;" LARGER THAN ";MSG2$
  63. 720 GOTO 630
  64. 730 PRINT "YOU GUESSED THE SECRET MUMBER IN ";N;" TRIES"
  65. 740 IF N>X THEN 910
  66. 750 Y=110*(2^(1/12))^(4*T)
  67. 760 INPUT "WANT TO PLAY AGAIN (Y OR N)";D$
  68. 770 IF D$<>"Y" THEN 870
  69. 780 N=0
  70. 790 PRINT
  71. 800 PRINT "ARE YOU PLAYING AGAIN ";NAM$;"?"
  72. 810 INPUT "ENTER Y OR N";D$
  73. 820 IF D$="N" THEN 350
  74. 830 CLS
  75. 840 PRINT "LIMIT IS ";LIMIT;" WANT TO SET A NEW LIMIT?"
  76. 850 INPUT "ENTER Y OR N";D$
  77. 860 IF D$="Y" THEN 540 ELSE 610
  78. 870 CLS
  79. 880 PRINT B$
  80. 890 PRINT TAB(26)"THANK YOU FOR THE GAME..."
  81. 900 END
  82. 910 PRINT :PRINT :PRINT "THAT'S NOT A VERY GOOD SCORE AT ALL ";NAM$;"!!!"
  83. 920 FOR DEL=1 TO 1500
  84. 930 NEXT DEL
  85. 940 PRINT "PERHAPS YOU WILL IMPROVE WITH PRACTISE."
  86. 950 GOTO 760
  87. 960 CLS
  88. ";NAM$;"!!!"
  89. 920 FOR DEL=1 TO 1500
  90. 930 NEXT DEL
  91. 940 PRINT "PERHAPS YOU WILL IMPROVE WITH PRACTISE."
  92. 950 GOTO 760
  93. 9